home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_85 / vikngame.bas (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  14KB  |  147 lines
  1. 10 DEFAULT
  2. 100 IF
  3. 1000 IF
  4. 1010 IF
  5. 1020 IF
  6. 1030 IF
  7. 1040 IF
  8. 1050 IF
  9. 1060 IF
  10. 1070 IF
  11. 1080 IF
  12. 1090 IF
  13. 110 UNTIL
  14. 1100 SPRITE
  15. 1110 IF
  16. 1120 BOOM
  17. 1130 IF
  18. 1140 IF
  19. 1150 IF
  20. 1160 IF
  21. 1170 FOR
  22. 1180 IF
  23. 1190 FOR
  24. 120 FOR
  25. 1200 FOR
  26. 1210 FOR
  27. 1220 FOR
  28. 1230 IF
  29. 1240 IF
  30. 1250 IF
  31. 1260 IF
  32. 1270 IF
  33. 1280 IF
  34. 1290 IF
  35. 130 SPRITE
  36. 1300 IF
  37. 140 PLAY
  38. 150 PEN
  39. 1500 CLS
  40. 1510 SCREEN COPY
  41. 1520 MODE
  42. 1530 GOSUB
  43. 1540 HIDE
  44. 1550 WINDOPEN
  45. 1560 CURS
  46. 1570 UNTIL
  47. 1580 MODE
  48. 1590 GOSUB
  49. 160 PAPER
  50. 1600 LOCATE
  51. 1610 CENTRE
  52. 1620 PALETTE
  53. 170 CENTRE
  54. 180 CLEAR KEY
  55. 190 IF
  56. 20 DIM
  57. 200 SWAP
  58. 2000 FOR
  59. 2010 IF
  60. 2020 NEXT
  61. 2030 FOR
  62. 2040 SPRITE
  63. 2050 NEXT
  64. 2060 WINDOPEN
  65. 2070 CENTRE
  66. 2080 PEN
  67. 2090 PRINT
  68. 210 READ
  69. 2100 PRINT
  70. 2110 PRINT
  71. 2120 PRINT
  72. 2130 PRINT
  73. 2140 PRINT
  74. 2150 PEN
  75. 2160 LOCATE
  76. 2170 LOCATE
  77. 2180 FOR
  78. 2190 SCREEN COPY
  79. 2200 GOSUB
  80. 2500 GOSUB
  81. 2510 INPUT
  82. 2520 IF
  83. 2530 IF
  84. 2540 LOCATE
  85. 2550 INPUT
  86. 2560 IF
  87. 2570 IF
  88. 2580 FOR
  89. 2590 FOR
  90. 2600 IF
  91. 2610 MID$
  92. 2620 NEXT
  93. 30 GOSUB
  94. 3000 FADE
  95. 3010 PRINT
  96. 3020 PRINT
  97. 3030 PRINT
  98. 3040 PRINT
  99. 3050 PRINT
  100. 3060 PRINT
  101. 3070 LOCATE
  102. 3080 SCREEN COPY
  103. 3500 DATA
  104. 3510 DATA
  105. 3520 DATA
  106. 3530 DATA
  107. 3540 DATA
  108. 3550 DATA
  109. 3560 DATA
  110. 3570 DATA
  111. 3580 DATA
  112. 3590 DATA
  113. 3600 DATA
  114. 40 MODE
  115. 50 LOCATE
  116. 500 VARNAME
  117. 510 VARNAME
  118. 520 IF
  119. 530 IF
  120. 540 IF
  121. 550 IF
  122. 560 IF
  123. 570 IF
  124. 580 IF
  125. 590 IF
  126. 60 CLEAR KEY
  127. 600 VARNAME
  128. 610 GOSUB
  129. 620 REPEAT
  130. 630 IF
  131. 640 HIDE
  132. 650 IF
  133. 660 VARNAME
  134. 670 GOSUB
  135. 680 REPEAT
  136. 690 IF
  137. 70 REPEAT
  138. 700 HIDE
  139. 710 IF
  140. 720 VARNAME
  141. 730 VARNAME
  142. 740 LIMIT MOUSE
  143. 750 SPRITE
  144. 760 UPDATE
  145. 80 IF
  146. 90 IF
  147.